#!/usr/bin/env perl


use strict;
use 5.010;

my $a = 'test';
my $e = 'test1';
my $b = '1212';

my $c = $a gt $b;
my $d = $a gt $e;
my $f = $a lt $e;

print $c . "\n";
print $d . "\n";
print $f . "\n";

my $s1 = '2.20';
my $s2 = '2.22';

my $r = $s1 lt $s2;
print "final:" . $r . "\n";
